home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Macintosh SE⁄30 Training / Apple Macintosh SE⁄30 / Apple Macintosh SE_30 / background_52531.txt < prev    next >
Encoding:
Text File  |  1989-08-22  |  1.9 KB  |  100 lines
  1. -- background: 52531 from stack: in
  2. -- bmap block id: 52880
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: afeBack
  6. ----- HyperTalk script -----
  7. on closeBackground
  8.   global mapLoc
  9.   put 19 into mapLoc
  10. end closeBackground
  11.  
  12.  
  13.  
  14. -- part 2 (button)
  15. -- low flags: 00
  16. -- high flags: 2000
  17. -- rect: left=428 top=317 right=342 bottom=456
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 18611 / 18611
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: prev
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   visual dissolve
  29.   go prev
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 3 (button)
  35. -- low flags: 00
  36. -- high flags: 2000
  37. -- rect: left=455 top=317 right=342 bottom=483
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 18612 / 18612
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: next
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   visual dissolve
  49.   go next
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 4 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=482 top=317 right=342 bottom=510
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 18613 / 18613
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: return
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   pop card into lastPush
  69.   if the short name of this stack is not in lastPush then
  70.     visual dissolve
  71.     go card "Map"
  72.   else
  73.     visual dissolve
  74.     go lastPush
  75.   end if
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 7 (button)
  81. -- low flags: 00
  82. -- high flags: 2001
  83. -- rect: left=10 top=1 right=20 bottom=37
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Menu
  92. ----- HyperTalk script -----
  93. on mousedown
  94.   global checkedItem, clickTime
  95.   put 8 into checkedItem
  96.   mainMenu
  97.   put the ticks into clickTime
  98. end mousedown
  99.  
  100.